home *** CD-ROM | disk | FTP | other *** search
/ Carousel / CAROUSEL.cdr / mactosh / hc / news_cli.sit / Clipping 1.0a5 / card_5260.txt < prev    next >
Text File  |  1988-11-14  |  1KB  |  49 lines
  1. -- card: 5260 from stack: in.0a5
  2. -- bmap block id: 0
  3. -- flags: 4000
  4. -- background id: 4760
  5. -- name: Clipping
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global clippingStr
  9.   put clippingStr into field clipping
  10.   set visible of card field "about clipping" to false
  11. end openCard
  12.  
  13. on closeCard
  14.   global clippingStr
  15.   put field clipping into clippingStr
  16. end CloseCard
  17.  
  18.  
  19. -- part 10 (field)
  20. -- low flags: 81
  21. -- high flags: 2004
  22. -- rect: left=52 top=89 right=255 bottom=445
  23. -- title width / last selected line: 0
  24. -- icon id / first selected line: 0 / 0
  25. -- text alignment: 1
  26. -- font id: 0
  27. -- text size: 12
  28. -- style flags: 0
  29. -- line height: 16
  30. -- part name: About Clipping
  31. ----- HyperTalk script -----
  32. on mouseUp
  33.   set visible of card field "About Clipping" to false
  34. end mouseUp
  35.  
  36.  
  37. -- part contents for card part 10
  38. ----- text -----
  39. The Clipping Stack is ┬⌐ 1987 by Vernon Keenan
  40. Copying and modifications are permitted.
  41. This stack is distributed with News StackΓäó
  42. Posting of modifications is forbiden, all rights reserved.
  43. MacFido Tribune BBS - 415-923-1235
  44.  
  45. Clear - Clear text without deleting
  46. Text - Save text to a file
  47. Zap - Delete Card
  48.  
  49.